Lollipop Plot description:
- select movie director with top 10 total gross
- blue point: lowest gross
- pink point: highest gross
- point size: gross
lolli_plt =
lolli_df %>%
ggplot(aes(x=max_gross,xend=min_gross,y=director_name))+
geom_dumbbell(colour_x = "#FFB6C1",colour_xend = "#4169E1",size_x = 2,size_xend = 2,size=0.5,color="gray")+
geom_point(aes(x=max_gross,y=director_name,size=max_gross),alpha=0.5,color="#FFB6C1")+
geom_point(aes(x=min_gross,y=director_name,size=min_gross),alpha=0.5,color="#4169E1")+
theme_light()+
theme(panel.grid.minor.x =element_blank(),
legend.position = c("none")
)+
xlab("Min & Max Gross")
ggplotly(lolli_plt)